package Flap::Validator;
use Flap qw/-b Flap::Object -m -s -w/;

sub is_eml {
    my($self, $eml) = @_;
    defined($eml) && $eml =~ m%^[\w\-][\+\-./\w^\?]*\@([\w\-]+\.)+\w{2,}\z%;
}

1;
